Imports System.Xml
Imports System.Data.SqlClient
Public Class dDestalleRemitoServicio
    
    Public Function Insertar(ByVal Cantidad As Long, ByVal Subtotal As Double, ByVal CodigoRemito As Long, ByVal CodigoLista As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        Parametros.Add(New SqlParameter("@pESubtotal", Subtotal))
        Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        Parametros.Add(New SqlParameter("@pECodigoLista", CodigoLista))

        Return dConexion.ABM("STORE_TblDetalleRemitoServicioAlta", Parametros)

    End Function
    Public Function Eliminar(ByVal CodigoDetalleRemitoServicio As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoDetalleRemitoServicio", CodigoDetalleRemitoServicio))
        Return dConexion.ABM("STORE_TblDetalleRemitoServicioELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoDetalleServicio As Long, ByVal Cantidad As Long, ByVal Subtotal As Double, ByVal CodigoRemito As Long, ByVal CodigoLista As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoDetalleServicio <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoDetalleServicio", CodigoDetalleServicio))
        End If
        If Cantidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If Subtotal <> 0 Then
            Parametros.Add(New SqlParameter("@pESubtotal", Subtotal))
        End If
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        If CodigoLista <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoLista", CodigoLista))
        End If
        Return dConexion.ABM("STORE_TblDetalleRemitoServicioMODIFICAR", Parametros)
    End Function
    Public Function Buscar(ByVal CodigoDetalleServicio As Long, ByVal Cantidad As Long, ByVal Subtotal As Double, ByVal CodigoRemito As Long, ByVal CodigoLista As Long) As DataSet
        Dim Parametros As ArrayList = New ArrayList

        If CodigoDetalleServicio <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoDetalleServicio", CodigoDetalleServicio))
        End If
        If Cantidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If Subtotal <> 0 Then
            Parametros.Add(New SqlParameter("@pESubtotal", Subtotal))
        End If
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        If CodigoLista <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoLista", CodigoLista))
        End If
        Return dConexion.Consultar("STORE_TblDetalleRemitoServicioBUSCARFILTRADO", Parametros)
    End Function
    Public Function Listar() As DataSet
        Return dConexion.Consultar("STORE_TblDetalleRemitoServicioBUSCARFILTRADO", New ArrayList)
    End Function
End Class
